(bs-delete): Signal an error if the buffer cannot be deleted.

diff --git a/lisp/bs.el b/lisp/bs.el
index ac4598df0f73012763482c006793e863f2b7d633..357852d99ee0490604073fc3086305c709273277 100644 (file)
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -924,8 +924,9 @@ WHAT is a value of nil, `never', or `always'."
   (interactive)
   (let ((current (bs--current-buffer))
        (inhibit-read-only t))
+    (unless (kill-buffer current)
+      (error "Buffer was not deleted"))
     (setq bs-current-list (delq current bs-current-list))
-    (kill-buffer current)
     (beginning-of-line)
     (delete-region (point) (save-excursion
                             (end-of-line)